10 GOSUB60100
130 POKE53086,0:POKE53087,1:REM WHT/BLK
140 FORY=1TO37:READZ:CS=CS+Z:NEXT:RESTORE:IFCS<>6031THENPRINT"DATA ERROR":STOP
150 FORJ=53049TO53085:READK:POKEJ,K:NEXT
160 DATA173,094,207,077,095,207,141,096
170 DATA207,169,000,133,251,169,216,133
180 DATA252,162,004,160,000,177,251,077
190 DATA096,207,145,251,200,208,246,230
200 DATA252,202,208,239,096
300 PRINT"[145][145]PRESS F TO FLIP COLOR, SPACE TO RETURN"
310 PRINT"TO LOADSTAR.                          "
320 A=PEEK(203):IFA<>60ANDA<>21THEN320
330 IFA=21THENSYS53049:GOTO320
340 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
350 IFER<>63THENEND
360 LOAD"HELLO CONNECT",8
60100 POKE53280,14:POKE53281,14
60110 PRINT"[147]"CHR$(142)"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"         LOADSTAR PRESENTS:"
60160 PRINT"                             "
60170 PRINT"            COLOR FLIPPER     "
60180 PRINT"                              "
60190 PRINT"           BY  RICHARD MIU    "
60200 PRINT"                              "
60210 PRINT"           COPYRIGHT  1987    "
60220 PRINT"                              "
60230 PRINT"                              "
60240 PRINT"        PRESS SPACE TO CONTINUE."
60250 A=PEEK(203):IFA<>60THEN60250
60260 RETURN